home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0292.ZIP / INV.ARC / INV.PRG < prev    next >
Text File  |  1985-12-21  |  1KB  |  55 lines
  1. *INV.PRG
  2.  
  3. CLEAR
  4. USE INV INDEX INV
  5. SET SAFETY OFF
  6. SET PRINT OFF
  7. SET TALK OFF
  8. *store .t. to true
  9. do while .t.
  10.  
  11.  
  12. ? '                        HOUSEHOLD GOODS INVENTORY'
  13. ? '                 Written in dBASE III by Donald E. Keller'
  14. ?
  15. ?
  16. ?
  17. ?
  18. ? '                         1.  Add new records'
  19. ?
  20. ? '                         2.  Browse/Edit records'
  21. ?
  22. ? '                         3.  Index Records'
  23. ?
  24. ? '                         4.  Search for specific Records'
  25. ?
  26. ? '                         5.  Print Inventory'
  27. ?
  28. ? '                         6.  Delete Old Records'
  29. ?
  30. ? '                         7.  Exit to dBASE'
  31. ?
  32. ?
  33. WAIT '                              Pick a Number ...' to choice
  34.  
  35. DO CASE CHOICE
  36.     CASE CHOICE = '1'
  37.         DO APPEND
  38.     CASE CHOICE = '2'
  39.         DO BROWSE
  40.     CASE CHOICE = '3'
  41.         DO INDEX
  42.     CASE CHOICE = '4'
  43.         DO LOOK
  44.     CASE CHOICE = '5'
  45.         DO INVPRINT
  46.     CASE CHOICE = '6'
  47.         PACK
  48.     CASE CHOICE = '7'
  49.         CANCEL
  50.  
  51. ENDCASE CHOICE
  52. RELEASE ALL
  53. CLEAR
  54. enddo
  55.